From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 27 May 1993 23:50:21 +0000 (+0000)
Subject: (x-create-frame-with-faces): Handle reverseVideo resource.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95878
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1b691d5c6cfde2c11531dba1e439cd7a2d7b11f9;p=emacs.git

(x-create-frame-with-faces): Handle reverseVideo resource.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index a0359e6d055..d6095380a78 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -743,7 +743,9 @@ If NOERROR is non-nil, return nil on failure."
       (set-frame-face-alist frame faces)
 
       (if (cdr (or (assq 'reverse parameters)
-		   (assq 'reverse default-frame-alist)))
+		   (assq 'reverse default-frame-alist)
+		   (cons nil
+			 (x-get-resource "reverseVideo" "Reversevideo"))))
 	  (let ((params (frame-parameters frame)))
 	    (modify-frame-parameters
 	     frame